Sub TaSamaKomorka()

Dim rngCurrentCell As Range
Dim shtMySheet As Worksheet
Dim strCellAddress As String

'strCellAddress = ActiveCell.Address

'Jeeli ma by zaznaczonych wicej ni jedna komrka, usu powyszy apostrof i umie go w wierszu poniej

strCellAddress = ActiveWindow.RangeSelection.Address

Set shtMySheet = ActiveWindow.ActiveSheet

If Worksheets.Count > shtMySheet.Index Then

   shtMySheet.Next.Activate
   Range(strCellAddress).Activate

   Else

   Worksheets(1).Activate
   Range(strCellAddress).Activate

End If

Set shtMySheet = Nothing

End Sub
